object FormGlsViewer: TFormGlsViewer
  Left = 230
  Top = 25
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  Caption = 'Gls Viewer'
  ClientHeight = 788
  ClientWidth = 891
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEC
    EEEEEECEEEEEEEEEEEEECEEEEEEEEEEECEEEEEECEEEEEEEEEEEECEEEEEEEEEEE
    CEEEEEECEEEEEEEEEEECEEEEEEEECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCEEEE
    ECEEEEEECEEEEEEEEECEEEEEEEECEEEEEECEEEEECEEEEEEEEECEEEEEEECECEEE
    EECEEEEECEEEEEEEECEEEEEEECEEECEEEEECEEEECEEEEEEEECE11EEECEEEEECE
    EEEECEEEECEEEEEEECE111ECEEEECCCCCCCCCCCCCCCCCCCCCCC1991CCCCCEEEE
    CEEEECEEECEEEEEECE11991EEEEEEEEECEEEECEEECEEEEECE1199991EEECCEEE
    ECEEEECEEECEEEECE19999991ECECC5555555555555CCCCC1199911111CCEEE5
    DD5DDDDDD5CEEEC119911999191ECCC5DD5DDDDDD5CCCCC191199999191C8888
    5D5DDDDD58888811199999991991888885D5DDD5888888199999999199918888
    85D5DDD58888881999999991991888888855DD58888888819999991999188888
    8885558888888881999999199188888888855588888888881999991991888888
    8888888888888888819991991888888888888888888888888199919188888888
    8888888888888888881991918888888888888888888888888819191888888888
    8888888888888888888119188888888888888888888888888888118888888888
    8888888888888888888888888888888888888888888888888888888888888888
    8888888888888888888888888888888888888888888888888888888888880000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 168
  TextHeight = 24
  object Panel1: TPanel
    Left = 0
    Top = 600
    Width = 891
    Height = 188
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alBottom
    TabOrder = 0
    object Label133: TLabel
      Left = 189
      Top = 39
      Width = 68
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Detailed'
    end
    object Label131: TLabel
      Left = 84
      Top = 39
      Width = 77
      Height = 24
      Hint = 'Inverse of Distance'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Distance:'
    end
    object QualityLabel: TLabel
      Left = 518
      Top = 39
      Width = 10
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object Label132: TLabel
      Left = 571
      Top = 39
      Width = 98
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Distant Blob'
    end
    object VectorLabel: TLabel
      Left = 182
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Stem Vectors Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object LeavesLabel: TLabel
      Left = 294
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Leaves Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object StemsLabel: TLabel
      Left = 84
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Stems Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object LeavesVLabel: TLabel
      Left = 406
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Leaves Vertices Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object Label37: TLabel
      Left = 112
      Top = 81
      Width = 155
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Wind Speed: 0..30'
    end
    object WindStrengthLabel: TLabel
      Left = 280
      Top = 123
      Width = 10
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '3'
    end
    object Label136: TLabel
      Left = 336
      Top = 81
      Width = 137
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Wind Gust: 0..10'
    end
    object WindGustLabel: TLabel
      Left = 532
      Top = 123
      Width = 10
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '1'
    end
    object Label43: TLabel
      Left = 588
      Top = 81
      Width = 220
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Wind from Direction 0..360'
    end
    object WindFromLabel: TLabel
      Left = 784
      Top = 123
      Width = 30
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '270'
    end
    object FruitVLabel: TLabel
      Left = 588
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Fruit Vertices Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object FruitLabel: TLabel
      Left = 518
      Top = 4
      Width = 10
      Height = 24
      Hint = 'Fruit Total'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '0'
    end
    object ProgressBar: TProgressBar
      Left = 686
      Top = 4
      Width = 175
      Height = 28
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Smooth = True
      Step = 1
      TabOrder = 0
    end
    object CancelButton: TButton
      Left = 686
      Top = 39
      Width = 175
      Height = 36
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = '&Cancel'
      TabOrder = 1
      OnClick = CancelButtonClick
    end
    object DistanceCB: TCheckBox
      Left = 14
      Top = 39
      Width = 26
      Height = 29
      Hint = 'Enable Distance LOD'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      TabOrder = 2
      OnClick = DistanceCBClick
    end
    object QualityTrackBar: TTrackBar
      Left = 266
      Top = 39
      Width = 249
      Height = 36
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Max = 100
      TabOrder = 3
      ThumbLength = 26
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = QualityTrackBarChange
    end
    object WindStrengthTB: TTrackBar
      Left = 70
      Top = 116
      Width = 210
      Height = 57
      Hint = 'Base M.P.H.'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Max = 30
      Frequency = 2
      Position = 3
      TabOrder = 4
      ThumbLength = 35
      OnChange = WindStrengthTBChange
    end
    object WindGustTB: TTrackBar
      Left = 322
      Top = 116
      Width = 210
      Height = 57
      Hint = 'Variable Wind'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Position = 1
      TabOrder = 5
      ThumbLength = 35
      OnChange = WindGustTBChange
    end
    object WindFromTB: TTrackBar
      Left = 574
      Top = 116
      Width = 210
      Height = 57
      Hint = 'N0. E90. S180.. W270'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Max = 360
      PageSize = 20
      Frequency = 20
      Position = 270
      TabOrder = 6
      ThumbLength = 35
      OnChange = WindFromTBChange
    end
    object WindAnimationCB: TCheckBox
      Left = 14
      Top = 119
      Width = 26
      Height = 30
      Hint = 'Enable Wind Animation'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      TabOrder = 7
      OnClick = WindAnimationCBClick
    end
    object AnimationCB: TCheckBox
      Left = 14
      Top = 4
      Width = 26
      Height = 29
      Hint = 'Enable Any Animation'
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      TabOrder = 8
      OnClick = AnimationCBClick
    end
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 891
    Height = 600
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Camera = GLCamera
    FieldOfView = 143.130096435546900000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    OnMouseUp = GLSceneViewer1MouseUp
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 16
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Caption = 'Open Tree Definition File'
        OnClick = Open1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = 'Save as .obj or .ms3d'
        Enabled = False
        OnClick = Save1Click
      end
      object RendertoBitmap1: TMenuItem
        Caption = 'Render to Bitmap'
        object Snapshot1: TMenuItem
          Caption = 'Snapshot'
          OnClick = Snapshot1Click
        end
        object N4: TMenuItem
          Caption = '-'
        end
        object Bitmap1: TMenuItem
          Caption = 'Bitmap'
          OnClick = Bitmap1Click
        end
        object Bitmapx21: TMenuItem
          Caption = 'Bitmap x2'
          OnClick = Bitmapx21Click
        end
        object Bitmap300dpi1: TMenuItem
          Caption = 'Bitmap 300 dpi'
          OnClick = Bitmap300dpi1Click
        end
        object Bitmap600dpi1: TMenuItem
          Caption = 'Bitmap 600 dpi'
          OnClick = Bitmap600dpi1Click
        end
      end
      object RendertoAVI1: TMenuItem
        Caption = 'Render to  AVI'
        object Rotate3601: TMenuItem
          Caption = 'Rotate 360'
          OnClick = Rotate3601Click
        end
        object SkyRanger1: TMenuItem
          Caption = 'Sky Ranger'
          OnClick = SkyRanger1Click
        end
        object WindPilot1: TMenuItem
          Caption = 'Wind Pilot'
          OnClick = WindPilot1Click
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Action1: TMenuItem
      Caption = 'Action'
      object Cancel1: TMenuItem
        Caption = 'Cancel Computation'
        OnClick = CancelButtonClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ZoomIn1: TMenuItem
        Caption = 'Zoom In'
        ShortCut = 16449
        OnClick = ZoomIn1Click
      end
      object ZoomOut1: TMenuItem
        Caption = 'Zoom Out'
        ShortCut = 16467
        OnClick = ZoomOut1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object CubeAxisVisible1: TMenuItem
        Caption = 'Cube Axis Visible'
        Checked = True
        OnClick = CubeAxisVisible1Click
      end
      object DisplayControls1: TMenuItem
        Caption = 'Display Controls'
        Checked = True
        OnClick = DisplayControls1Click
      end
      object SelectBackgroundColor1: TMenuItem
        Caption = 'Select Background Color...'
        OnClick = SelectBackgroundColor1Click
      end
    end
    object Help2: TMenuItem
      Caption = 'Help'
      object Help1: TMenuItem
        Caption = 'Help...'
        OnClick = Help1Click
      end
      object About1: TMenuItem
        Caption = 'About...'
      end
    end
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 64
    object GLDummyCube1: TGLDummyCube
      ShowAxes = True
      CubeSize = 1.000000000000000000
      VisibleAtRunTime = True
      object TreeFreeForm: TGLFreeForm
        Material.Texture.TextureMode = tmModulate
        Material.Texture.TextureWrap = twVertical
        Material.Texture.Disabled = False
        MaterialLibrary = GLMaterialLibrary
        object LeafFF: TGLFreeForm
          Material.Texture.ImageAlpha = tiaSuperBlackTransparent
          Material.Texture.TextureMode = tmModulate
          Material.Texture.TextureWrap = twNone
          Material.Texture.Disabled = False
          MaterialLibrary = GLMaterialLibrary
        end
        object FruitFF: TGLFreeForm
          Material.Texture.ImageAlpha = tiaSuperBlackTransparent
          Material.Texture.TextureMode = tmModulate
          Material.Texture.TextureWrap = twNone
          Material.Texture.Disabled = False
          MaterialLibrary = GLMaterialLibrary
        end
        object GLLightSource2: TGLLightSource
          Ambient.Color = {0000803F0000803F0000803F0000803F}
          ConstAttenuation = 1.000000000000000000
          Position.Coordinates = {000000000000C842000000000000803F}
          LightStyle = lsOmni
          SpotCutOff = 180.000000000000000000
        end
      end
      object GLCamera: TGLCamera
        DepthOfView = 1000.000000000000000000
        FocalLength = 100.000000000000000000
        TargetObject = GLDummyCube1
        Position.Coordinates = {00000000000080400000B0410000803F}
        Left = 256
        Top = 144
        object GLLightSource1: TGLLightSource
          Ambient.Color = {0000803F0000803F0000803F0000803F}
          ConstAttenuation = 1.000000000000000000
          SpotCutOff = 180.000000000000000000
        end
      end
    end
  end
  object OpenTdfDialog: TOpenDialog
    DefaultExt = '.tdf'
    Filter = 'Tree definition file (*.tdf))|*.tdf;*.trd'
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open tree definition file...'
    Left = 60
    Top = 16
  end
  object GLMaterialLibrary: TGLMaterialLibrary
    Materials = <
      item
        Name = 'TreeBark'
        Tag = 0
        Material.Texture.TextureWrap = twVertical
        Material.Texture.Disabled = False
      end
      item
        Name = 'LeafTexture'
        Tag = 0
        Material.BlendingMode = bmTransparency
        Material.Texture.ImageAlpha = tiaSuperBlackTransparent
        Material.Texture.TextureMode = tmReplace
        Material.Texture.TextureWrap = twNone
        Material.Texture.Disabled = False
      end
      item
        Name = 'FruitTexture'
        Tag = 0
        Material.Texture.ImageAlpha = tiaSuperBlackTransparent
        Material.Texture.TextureMode = tmModulate
        Material.Texture.TextureWrap = twNone
        Material.Texture.Disabled = False
      end>
    Left = 64
    Top = 64
  end
  object SaveDialog1: TSaveDialog
    Left = 104
    Top = 16
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    Enabled = False
    OnProgress = GLCadencer1Progress
    Left = 104
    Top = 64
  end
  object ColorDialog1: TColorDialog
    Left = 208
    Top = 48
  end
  object GLAVIRecorder1: TGLAVIRecorder
    Width = 320
    Height = 200
    Left = 32
    Top = 128
  end
end
